;MAKROTYP=0
;INSTVERSION=6.4.0.4_Patch_6.4.0.5
;EXEVERSION=6.6.2.154[Hops.exe]
;BILD=_V03_TU_BF_MDFGRF.wmf
;INFO=BIESSE_ROVER_MC_PLC
;WZGV=87478SB
;WZGVCONFIG=
;MASCHINE=Biesse_ROVER_MC_NE
;NCNAME=_TU_BF_MDFgrf_neu
;KOMMENTAR=
;DX=0
;DY=0
;DZ=0
;DIALOGDLL=Dialoge.Dll
;DIALOGPROC=StandardFormAnzeigen
;DIALOGKIND=0
;AUTOSCRIPTSTART=1
;BUTTONBILD=
;DIMENSION_UNIT=0
VARS
   LPX := 2500;*VAR*
   LPY := 190;*VAR*
   LPZ := 45;*VAR*
   CNCMODUS := 3200;*VAR*3000=BlfLi | 3100=BlfRe | 3200=BlfOb
   TYBF := 3;*VAR*Typ Blockfutter: 1=Nein | 2=Ja | 3=MDFgrf(45)
   BASE := 1;*VAR*Bandseite: 1=Links Band | 2=Rechts Band
   BAND := 5;*VAR*Band Beschlaege: 1=Nein | 2=Paumellen 120/25 | 3=160/25 | 4=160/35 | 5=DX38 | 6=DX60 | 7=DX100 | 8=DX180 | 14=DX200
   BAHO := 217;*VAR*Bandhoehe unten: Abstand von UK Tuer bis Anfang Band
   BAAB := 1490;*VAR*Bandabstand: Abstand zwischen den Bndern
   BAZU := 1;*VAR*Drittes Band: 1=Nein | 2=Oben | 3=Mitte
   SCBL := 3;*VAR*Schliessblech Beschlaege: 1=Nein | 2=Glutz B-1001 | 3=Glutz B-1138 | 4=Glutz 16010 verstellbar
   SCBLAB := 8.5;*VAR*Schliessblech Stulpabstand
   SCTY := 2;*VAR*Schlosstyp: 1=Nein | 2=Zimmertuer | 3=WC | 4=MINT 3-fach | 5=MINT 5-fach | 6=MINT motorisch  | 7=Zimmer Zimmer DM30/40/50
   DRHO := 1000;*VAR*Drueckerhoehe von UK Tuer
   BLFUDI := 45;*VAR*Blockfutterdicke
   BLFUBROB := 285;*VAR*Blockfutterbreite oben
   BLFUFATI := 50;*VAR*Blockfutterfalz Tiefe
   BLFUFAHO := 15;*VAR*Blockfutterfalz Hoehe
   BLFUFR := 2;*VAR*Blockfutterfriestyp Oben: 1=Nein | 2=Liegend | 3=Stehend
   TULU := 17;*VAR*Tuerluft Unten
   VERB := 2;*VAR*Verbindung: 1=Nein | 2=Duebel
   TUSCHL := 2;*VAR*Tuerschliesser: 1=Nein | 2=Dorma ITS96 2-4 | 3=Dorma ITS96 3-6 | 4=Dorma TS96B 2-5
   BRASCHU := 2;*VAR*Brandschutz: 1=Nein | 2=Ja
   CAD := 1;*VAR*Bemassung und Hilfszeichnungen: 0=Nein | 1=Ja
   FEHLER := 1;*VAR*Fehlerberprfung: 0=Nein | 1=Ja
   i := 0;Laufvariable
   ZUG := 0.5;Variable Groessenzugabe fuer Passgenauigkeit
START
Fertigteil (LPX,LPY,LPZ,0,0,3,3,0,'',0,0,0)
;-------------------------------------------------------------------------------------------
;Variablen zuweisen
;-------------------------------------------------------------------------------------------
;-------------------------------------------------------------------------------------------
;Fehlerabfragen
;-------------------------------------------------------------------------------------------
IF (FEHLER=1)
END
;-------------------------------------------------------------------------------------------
;Veschiedene Bearbeitungen
;-------------------------------------------------------------------------------------------
IF (CNCMODUS=3000)|(CNCMODUS=3100)|(CNCMODUS=3200)
;..........................................................................
IF (LPZ=16)|(LPZ=30)
;Futter fgen
WZF (68,_VE,15000,_VA,_SD,_ANF,'1')
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=9)
SP (-60,0,_rz/2,2,2,_ANF,0,0,0,1,1,2,0,0,0,0,0,0,0,0,0,0,0)
G01 (-60,0,0,0,3,2)
EP (5,_ANF,0)
SP (-60,0,_rz/2,2,2,_ANF,0,0,0,5,1,2,0,0,0,0,0,0,0,0,0,0,0)
G01 (-60,0,0,0,7,2)
EP (5,_ANF,0)
END
;..........................................................................
IF LPZ=16
;Bohren Flche
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
FOR i := 50 TO _rx-49 STEP (_rx-100)/ROUND((_rx-100)/400)
CALL _Bohgy_V5 ( VAL SPX:=i,BIY:=_ry/2,BIIY:=0,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-12,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=1,ESD:=0,USE2:=0,USE3:=0,USE4:=0)
END
END
;..........................................................................
IF (LPZ>=29)&(LPZ<=31)
/IF LPZ=30
;Bohren Flche
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
FOR i := 50 TO _rx-49 STEP (_rx-100)/ROUND((_rx-100)/400)
CALL _Bohgy_V5 ( VAL SPX:=i,BIY:=BLFUFATI+(_ry-BLFUFATI)/2,BIIY:=0,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-26,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=1,ESD:=0,USE2:=0,USE3:=0,USE4:=0)
END
;Nuten Flche
WZS (63,_VE,_V,_VA,_SD,_ANF,'1')
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=8)
CALL _saege_frei_V5 ( VAL SX:=0,SY:=BLFUFATI-5.1,SZ:=-3,EX:=0,EY:=BLFUFATI-5.1,EZ:=-8.1,BL:=1,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=2,ESXY1:=1,ESXY2:=3)
CALL _saege_frei_V5 ( VAL SX:=0,SY:=BLFUFATI-5.1+5,SZ:=-3,EX:=0,EY:=BLFUFATI-5.1+5,EZ:=-8.1,BL:=2,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=2,ESXY1:=1,ESXY2:=3)
/CALL _Nuten_X_V5 ( VAL NB:=5,NT:=-8,EBENE:=1,ARAND:=BLFUFATI-5.1,ALINKS:=-50,ARECHTS:=-50,RK:=0,ESMD:=0)
/CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=9)
/WZS (1004,16000,18000,_VA,_SD,_ANF,'1')
/CALL _Nuten_X_V5 ( VAL NB:=5,NT:=-8.1,EBENE:=1,ARAND:=BLFUFATI-5.1+1.2,ALINKS:=-120,ARECHTS:=-120,RK:=0,ESMD:=0)
END
;..........................................................................
IF LPZ=45
IF (CNCMODUS=3000)|(CNCMODUS=3100)
;Ablngen mit Sge
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=6)
WZS (63,_VE,_V,_VA,_SD,_ANF,'1')
;Komplett Ablngen mit einem Schnitt
IF LPZ<=45
;links
CALL _saege_y_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EY:=0,EZ:=0,BL:=2,EINPASSEN:=0,EL:=_wzr+10,AL:=_wzr+10,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=1,ESXY1:=7,ESY:=3)
CALL _saege_y_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EY:=0,EZ:=-15,BL:=2,EINPASSEN:=0,EL:=_wzr+10,AL:=_wzr+10,PARALLEL:=0,K:=1,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=0,ESXY1:=7,ESY:=3)
;rechts
CALL _saege_y_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EY:=0,EZ:=0,BL:=2,EINPASSEN:=0,EL:=_wzr+10,AL:=_wzr+10,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=1,ESXY1:=3,ESY:=5)
CALL _saege_y_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EY:=0,EZ:=-15,BL:=2,EINPASSEN:=0,EL:=_wzr+10,AL:=_wzr+10,PARALLEL:=0,K:=1,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=0,ESXY1:=3,ESY:=5)
CALL B2Punkte_V5 ( VAL P1X:=0,P1Y:=-10,P2X:=0,P2Y:=-10,ABSTAND:=90,FARBE:=0,TEXT:='',TEXTHOEHE:=20,PFEILLAENGE:=20mm,PFEILEINNERHALB:=1,ESXY1:=5,ESXY2:=7)
END
END
;Spritzngel
IF (CNCMODUS=3100)
IF LPY<=150
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI-13,15,8,-40,0,0,180,3,0,0,0)
HorzB (-2,BLFUFATI-13,15,8,-80,0,0,180,3,0,0,0)
HorzB (-2,37,15,8,-40,0,0,180,5,0,0,0)
HorzB (-2,37,15,8,-80,0,0,180,5,0,0,0)
HorzB (-2,0,15,8,-40,0,0,0,8,0,0,0)
HorzB (-2,0,15,8,-80,0,0,0,8,0,0,0)
ELSE
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI+10,15,8,-40,0,0,180,3,0,0,0)
HorzB (-2,BLFUFATI+10,15,8,-80,0,0,180,3,0,0,0)
HorzB (-2,39,15,8,-40,0,0,180,5,0,0,0)
HorzB (-2,39,15,8,-80,0,0,180,5,0,0,0)
HorzB (-2,0,15,8,-40,0,0,0,8,0,0,0)
HorzB (-2,0,15,8,-80,0,0,0,8,0,0,0)
END
END
IF (CNCMODUS=3000)
IF LPY<=150
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI-13,15,8,-40,0,0,0,1,0,0,0)
HorzB (-2,BLFUFATI-13,15,8,-80,0,0,0,1,0,0,0)
HorzB (-2,37,15,8,-40,0,0,0,7,0,0,0)
HorzB (-2,37,15,8,-80,0,0,0,7,0,0,0)
HorzB (-2,0,15,8,-40,0,0,180,4,0,0,0)
HorzB (-2,0,15,8,-80,0,0,180,4,0,0,0)
ELSE
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI+10,15,8,-40,0,0,0,1,0,0,0)
HorzB (-2,BLFUFATI+10,15,8,-80,0,0,0,1,0,0,0)
HorzB (-2,39,15,8,-40,0,0,0,7,0,0,0)
HorzB (-2,39,15,8,-80,0,0,0,7,0,0,0)
HorzB (-2,0,15,8,-40,0,0,180,4,0,0,0)
HorzB (-2,0,15,8,-80,0,0,180,4,0,0,0)
END
END
IF (CNCMODUS=3200)
IF LPY<=150
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI-12,15,8,-40,0,0,180,3,0,0,0)
HorzB (-2,BLFUFATI-12,15,8,-80,0,0,180,3,0,0,0)
HorzB (-2,BLFUFATI-14,15,8,-40,0,0,180,5,0,0,0)
HorzB (-2,BLFUFATI-14,15,8,-80,0,0,180,5,0,0,0)
HorzB (-2,17,15,8,-40,0,0,0,8,0,0,0)
HorzB (-2,17,15,8,-80,0,0,0,8,0,0,0)
ELSE
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZB (74,_VE,_V,_VA,_SD,_ANF,'1')
HorzB (-2,BLFUFATI+10,15,8,-40,0,0,180,3,0,0,0)
HorzB (-2,BLFUFATI+10,15,8,-80,0,0,180,3,0,0,0)
HorzB (-2,37,15,8,-40,0,0,180,5,0,0,0)
HorzB (-2,37,15,8,-80,0,0,180,5,0,0,0)
HorzB (-2,17,15,8,-40,0,0,0,8,0,0,0)
HorzB (-2,17,15,8,-80,0,0,0,8,0,0,0)
END
END
;Dbel bohren
IF VERB=2
IF CNCMODUS=3000
;liegendes Fries
IF BLFUFR=2
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
CALL _Bohgy_V5 ( VAL SPX:=20,BIY:=20,BIIY:=_ry/2,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-21,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=7,ESD:=0,USE2:=1,USE3:=0,USE4:=0)
CALL _Bohgy_V5 ( VAL SPX:=20,BIY:=_ry-(BLFUFATI/2),BIIY:=0,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-BLFUFAHO-16,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=7,ESD:=0,USE2:=0,USE3:=0,USE4:=0)
Bohrung (20,20+13,5mm,-34,20,0,0,7,0,0,0,0)
Bohrung (20,BLFUFATI/2+13,5mm,-34,20,0,0,1,0,0,0,0)
END
;stehendes Fries
IF BLFUFR=3
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
CALL _Bohgx_V5 ( VAL SPY:=BLFUDI/2,BIX:=20,BIIX:=20+(BLFUBROB-20-35)/2,BIIIX:=BLFUBROB-35,BIIIIX:=0,SPIEGELN:=0,T:=-15-BLFUFAHO,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=1,ESD:=0,USE2:=1,USE3:=1,USE4:=0)
END
END
IF CNCMODUS=3100
;liegendes Fries
IF BLFUFR=2
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
CALL _Bohgy_V5 ( VAL SPX:=20,BIY:=20,BIIY:=_ry/2,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-21,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=5,ESD:=0,USE2:=1,USE3:=0,USE4:=0)
CALL _Bohgy_V5 ( VAL SPX:=20,BIY:=_ry-(BLFUFATI/2),BIIY:=0,BIIIY:=0,BIIIIY:=0,SPIEGELN:=0,T:=-BLFUFAHO-16,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=5,ESD:=0,USE2:=0,USE3:=0,USE4:=0)
Bohrung (20,20+13,5mm,-34,20,0,0,5,0,0,0,0)
Bohrung (20,BLFUFATI/2+13,5mm,-34,20,0,0,3,0,0,0,0)
END
;stehendes Fries
IF BLFUFR=3
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
CALL _Bohgx_V5 ( VAL SPY:=BLFUDI/2,BIX:=20,BIIX:=20+(BLFUBROB-20-35)/2,BIIIX:=BLFUBROB-35,BIIIIX:=0,SPIEGELN:=0,T:=-15-BLFUFAHO,D:=8mm,TLF:=10,INKREMENT:=0,ESXY:=3,ESD:=0,USE2:=1,USE3:=1,USE4:=0)
END
END
END
IF CNCMODUS=3200
;Ablngen
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=7)
WZS (63,_VE,_V,_VA,_SD,_ANF,'1')
CALL _saege_frei_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EX:=0,EY:=0,EZ:=0,BL:=2,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=1,ESXY1:=7,ESXY2:=1)
/CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=6)
CALL _saege_frei_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EX:=0,EY:=0,EZ:=-15,BL:=2,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=1,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=0,ESXY1:=7,ESXY2:=1)
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=7)
CALL _saege_frei_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EX:=0,EY:=0,EZ:=0,BL:=2,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=0,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=1,ESXY1:=3,ESXY2:=5)
/CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=6)
CALL _saege_frei_V5 ( VAL SX:=0,SY:=0,SZ:=-3,EX:=0,EY:=0,EZ:=-15,BL:=2,EINPASSEN:=0,EL:=120,AL:=120,PARALLEL:=0,K:=1,KW:=0,BH:=0,RITZVERSATZ:=0.05,ESZ:=0,ESXY1:=3,ESXY2:=5)
;Ausklingen rundung vom Frsser oben
Ebene4()
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZF (66,2500,1800,_VA,_SD,_ANF,'1')
SP (BLFUFATI-1,-20,-15,1,0,_ANF,0,0,0,7,0,2,2,0,0,0,0,0,0,0,0,0,0)
G01 (BLFUFATI-1,_rz-15,0,0,7,2)
EP (0,_ANF,0)
Ebene2()
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZF (65,2500,1800,_VA,_SD,_ANF,'1')
SP (BLFUFATI-1,-20,-14,2,0,_ANF,0,0,0,5,0,2,2,0,0,0,0,0,0,0,0,0,0)
G01 (BLFUFATI-1,_rz-15,0,0,5,2)
EP (0,_ANF,0)
SP (BLFUFATI-1,-20,-15,2,0,_ANF,0,0,0,5,0,2,0,0,0,0,0,0,0,0,0,0,0)
G01 (BLFUFATI-1,_rz-15,0,0,5,2)
EP (0,_ANF,0)
Ebene0()
;Einfahren das Kanten hinten nicht abreisst
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=8)
WZF (45,_VE,5000,_VA,_SD,_ANF,'1')
SP (14.8,-30,-5,1,5,_ANF,0,0,0,5,1,2,3,0,0,0,0,0,0,0,0,0,0)
G01 (14.8,20,0,0,5,2)
EP (0,_ANF,0)
;Ausklingen: Liegendes Futter oben
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=9)
WZF (43,_VE,6000,_VA,_SD,_ANF,'1')
SP (0,-50,-3,2,0,_ANF,0,0,0,3,1,2,0,20,0,0,0,0,0,0,0,0,0)
G01 (0,BLFUFATI,0,0,3,2)
G01 (15,BLFUFATI,0,0,3,2)
G01 (15,-50,0,0,5,2)
EP (0,_ANF,0)
SP (0,-50,-3,1,0,_ANF,0,0,0,1,1,2,0,20,0,0,0,0,0,0,0,0,0)
G01 (0,BLFUFATI,0,0,1,2)
G01 (15,BLFUFATI,0,0,1,2)
G01 (15,-50,0,0,7,2)
EP (0,_ANF,0)
;Ausklingen rundung vom Frsser unten
Ebene2()
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZF (66,_VE,2200,_VA,_SD,_ANF,'1')
SP (BLFUFATI-1+100,10,-14.9,1,0,_ANF-0.9,0,0,0,3,0,2,0,0,0,0,0,0,0,0,0,0,0)
G01 (BLFUFATI-1,-10,0,0,3,2)
G01 (BLFUFATI-1,_rz-15,0,0,3,2)
EP (0,_ANF,0)
Ebene4()
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=3)
WZF (65,_VE,2200,_VA,_SD,_ANF,'1')
SP (BLFUFATI-1+100,10,-15,2,0,_ANF-0.9,0,0,0,1,0,2,0,0,0,0,0,0,0,0,0,0,0)
G01 (BLFUFATI-1,-10,0,0,1,2)
G01 (BLFUFATI-1,_rz-15,0,0,1,2)
EP (0,_ANF,0)
Ebene0()
;Trschliesser ITS 96
IF TUSCHL=2
IF (BASE=1)&(CNCMODUS=3200)
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=9)
WZF (80,_VE,4500,_VA,_SD,_ANF,'1')
CALL _RechteckTasche_V5 ( VAL X_MITTE:=2+133+464/2,Y_MITTE:=(BLFUFATI-6)/2,TASCHENLAENGE:=464+ZUG,TASCHENBREITE:=20+ZUG,RADIUS:=8,WINKEL:=0,TIEFE:=-(BLFUFAHO+12),ZUSTELLUNG:=5,AB:=0,ABF:=_ANF,INTERPOL:=1,UMKEHREN:=1,ESXY:=3,ESMD:=0,LASER:=0)
END
IF (BASE=2)&(CNCMODUS=3200)
CALL ROVER_MC_PLC_Hauben_Pos ( VAL POS:=7)
WZF (80,_VE,4500,_VA,_SD,_ANF,'1')
CALL _RechteckTasche_V5 ( VAL X_MITTE:=2+133+464/2,Y_MITTE:=BLFUFATI/2,TASCHENLAENGE:=464+ZUG,TASCHENBREITE:=20+ZUG,RADIUS:=8,WINKEL:=0,TIEFE:=-(BLFUFAHO+12+ZUG),ZUSTELLUNG:=5,AB:=0,ABF:=_ANF,INTERPOL:=1,UMKEHREN:=1,ESXY:=1,ESMD:=0,LASER:=0)
END
END
;Dbel bohren
IF CNCMODUS=3200
IF VERB=2
WZB (501,_VE,_V,_VA,_SD,_ANF,'1')
CALL _BoGr_HY_V5 ( VAL BIY:=20,BIIY:=_ry/2,BIIIY:=0,BIIIIY:=0,Z:=20,SPIEGELN:=0,T:=-15-21,D:=8mm,EBENE:=0,INKREMENT:=0,ESY:=5,ESZ:=0,USE2:=1,USE3:=0,USE4:=0)
CALL _BoGr_HY_V5 ( VAL BIY:=_ry-(BLFUFATI/2),BIIY:=0,BIIIY:=0,BIIIIY:=0,Z:=20,SPIEGELN:=0,T:=-26,D:=8mm,EBENE:=0,INKREMENT:=0,ESY:=5,ESZ:=0,USE2:=0,USE3:=0,USE4:=0)
CALL _BoGr_HY_V5 ( VAL BIY:=20,BIIY:=_ry/2,BIIIY:=_ry-(BLFUFATI/2),BIIIIY:=0,Z:=20,SPIEGELN:=0,T:=-15-21,D:=8mm,EBENE:=1,INKREMENT:=0,ESY:=5,ESZ:=0,USE2:=1,USE3:=0,USE4:=0)
CALL _BoGr_HY_V5 ( VAL BIY:=_ry-(BLFUFATI/2),BIIY:=0,BIIIY:=0,BIIIIY:=0,Z:=20,SPIEGELN:=0,T:=-26,D:=8mm,EBENE:=1,INKREMENT:=0,ESY:=5,ESZ:=0,USE2:=0,USE3:=0,USE4:=0)
END
END
END
IF ((BASE=1)&(CNCMODUS=3100))|((BASE=2)&(CNCMODUS=3000))
CALL _TU_BF_Lappenschliessblech ( VAL LPX:=LPX,LPY:=LPY,LPZ:=LPZ,CNCMODUS:=CNCMODUS,SCBL:=SCBL,SCBLAB:=SCBLAB,SCTY:=SCTY,DRHO:=DRHO,BLFUFATI:=BLFUFATI,BLFUFAHO:=BLFUFAHO,TULU:=TULU,CAD:=CAD,FEHLER:=FEHLER)
END
IF ((BASE=1)&(CNCMODUS=3000))|((BASE=2)&(CNCMODUS=3100))
CALL _TU_BF_Band_DX ( VAL LPX:=LPX,LPY:=LPY,LPZ:=LPZ,CNCMODUS:=CNCMODUS,BAND:=BAND,BAHO:=BAHO,BAAB:=BAAB,BAZU:=BAZU,BAZUAB:=240,BLFUFATI:=BLFUFATI,BLFUFAHO:=BLFUFAHO,TULU:=TULU,CAD:=CAD,FEHLER:=FEHLER)
CALL _TU_BF_Band_Paumellen ( VAL LPX:=LPX,LPY:=LPY,LPZ:=LPZ,CNCMODUS:=CNCMODUS,BAND:=BAND,BAHO:=BAHO,BAAB:=BAAB,BAZU:=BAZU,BAZUAB:=240,BLFUFATI:=BLFUFATI,BLFUFAHO:=BLFUFAHO,TULU:=TULU,CAD:=CAD,FEHLER:=FEHLER,FRAESMODUS:=1)
END
END
END
;-------------------------------------------------------------------------------------------
;CAD
;-------------------------------------------------------------------------------------------
IF (CAD=1)&((CNCMODUS=3000)|(CNCMODUS=3100)|(CNCMODUS=3200)|(CNCMODUS=3300))
CALL B2Punkte_V5 ( VAL P1X:=0,P1Y:=-10,P2X:=0,P2Y:=-10,ABSTAND:=90,FARBE:=0,TEXT:='',TEXTHOEHE:=20,PFEILLAENGE:=20mm,PFEILEINNERHALB:=1,ESXY1:=5,ESXY2:=7)
CALL _ZoomAll ()
END
;-------------------------------------------------------------------------------------------
;Mll
Hinweismeldung ('Andere Frsung beim Futter oben')
